"
SUnit tests for class SHStyleElement
"
Class {
	#name : 'SHStyleElementTest',
	#superclass : 'TestCase',
	#instVars : [
		'element'
	],
	#category : 'Shout-Tests-Styling',
	#package : 'Shout-Tests',
	#tag : 'Styling'
}

{ #category : 'running' }
SHStyleElementTest >> setUp [
	super setUp.
	element := SHStyleElement withTokens: #(#self #super #true #false)
]

{ #category : 'tests' }
SHStyleElementTest >> testPrintOn [
	self
		assert: element printString
		equals: 'a SHStyleElement tokens: #(#self #super #true #false)'
]

{ #category : 'tests' }
SHStyleElementTest >> testStyleForTable [
	| table |
	table := element styleForTable.
	self assert: table size equals: 4.
	self assert: (table collect: [:each | each first]) equals: element tokens
]
